home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 53 / IOPROG_53.ISO / soft / c++ / xceedbkp.exe / Recovery Wizard / Sources / frmFive.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-02  |  6.2 KB  |  202 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFive 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Xceed Recovery Wizard"
  5.    ClientHeight    =   4290
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   7425
  9.    Icon            =   "frmFive.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   4290
  13.    ScaleWidth      =   7425
  14.    Begin VB.CommandButton cmdNext 
  15.       Caption         =   "Next  >"
  16.       Enabled         =   0   'False
  17.       Height          =   375
  18.       Left            =   3120
  19.       TabIndex        =   9
  20.       Top             =   3720
  21.       Width           =   1215
  22.    End
  23.    Begin VB.TextBox txtPassword 
  24.       Height          =   285
  25.       Left            =   1920
  26.       TabIndex        =   2
  27.       Top             =   1800
  28.       Width           =   2655
  29.    End
  30.    Begin VB.CheckBox chkRestoreSecurity 
  31.       Caption         =   "Restore security"
  32.       Height          =   255
  33.       Left            =   3000
  34.       TabIndex        =   1
  35.       Top             =   960
  36.       Width           =   1575
  37.    End
  38.    Begin VB.CheckBox chkRestoreCorrupt 
  39.       Caption         =   "Restore corrupted files"
  40.       Height          =   255
  41.       Left            =   3000
  42.       TabIndex        =   0
  43.       Top             =   600
  44.       Width           =   2175
  45.    End
  46.    Begin VB.CommandButton cmdExit 
  47.       Caption         =   "Exit"
  48.       Height          =   375
  49.       Left            =   6000
  50.       TabIndex        =   6
  51.       Top             =   3720
  52.       Width           =   1215
  53.    End
  54.    Begin VB.CommandButton cmdRestore 
  55.       Caption         =   "Restore"
  56.       Height          =   375
  57.       Left            =   4560
  58.       TabIndex        =   3
  59.       Top             =   3720
  60.       Width           =   1215
  61.    End
  62.    Begin VB.CommandButton cmdPrev 
  63.       Caption         =   "<  Previous"
  64.       Height          =   375
  65.       Left            =   1920
  66.       TabIndex        =   4
  67.       Top             =   3720
  68.       Width           =   1215
  69.    End
  70.    Begin VB.Line Line1 
  71.       BorderColor     =   &H80000011&
  72.       Index           =   0
  73.       X1              =   1680
  74.       X2              =   1680
  75.       Y1              =   120
  76.       Y2              =   4080
  77.    End
  78.    Begin VB.Line Line1 
  79.       BorderColor     =   &H80000009&
  80.       Index           =   1
  81.       X1              =   1695
  82.       X2              =   1695
  83.       Y1              =   120
  84.       Y2              =   4080
  85.    End
  86.    Begin VB.Label Label4 
  87.       Caption         =   "Step 4 of 4"
  88.       BeginProperty Font 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   8.25
  91.          Charset         =   0
  92.          Weight          =   700
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       Height          =   255
  98.       Left            =   120
  99.       TabIndex        =   10
  100.       Top             =   3840
  101.       Width           =   1095
  102.    End
  103.    Begin VB.Image Image1 
  104.       Height          =   1260
  105.       Left            =   120
  106.       Picture         =   "frmFive.frx":0BC2
  107.       Top             =   120
  108.       Width           =   1410
  109.    End
  110.    Begin VB.Label Label3 
  111.       Caption         =   "Password:"
  112.       Height          =   255
  113.       Left            =   1920
  114.       TabIndex        =   8
  115.       Top             =   1560
  116.       Width           =   1215
  117.    End
  118.    Begin VB.Label Label2 
  119.       Caption         =   "Options:"
  120.       BeginProperty Font 
  121.          Name            =   "MS Sans Serif"
  122.          Size            =   8.25
  123.          Charset         =   0
  124.          Weight          =   700
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   255
  130.       Left            =   1920
  131.       TabIndex        =   7
  132.       Top             =   600
  133.       Width           =   735
  134.    End
  135.    Begin VB.Label Label1 
  136.       Caption         =   "Restoring"
  137.       BeginProperty Font 
  138.          Name            =   "MS Sans Serif"
  139.          Size            =   8.25
  140.          Charset         =   0
  141.          Weight          =   700
  142.          Underline       =   -1  'True
  143.          Italic          =   0   'False
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.       Height          =   255
  147.       Left            =   1920
  148.       TabIndex        =   5
  149.       Top             =   120
  150.       Width           =   1695
  151.    End
  152. Attribute VB_Name = "frmFive"
  153. Attribute VB_GlobalNameSpace = False
  154. Attribute VB_Creatable = False
  155. Attribute VB_PredeclaredId = True
  156. Attribute VB_Exposed = False
  157. Option Explicit
  158. Dim xClass As clsXceed
  159. Dim ExitInc As Integer
  160. Public Function ShowForm(xObjects As clsXceed) As Integer
  161.     'This is where you will fill in the fields on your forms with the values
  162.     'in xObjects.
  163.     Set xClass = xObjects
  164.     txtPassword.Text = xObjects.xRestore.EncryptionPassword
  165.     Me.Left = xClass.PositionLeft
  166.     Me.Top = xClass.PositionTop
  167.     Me.Show vbModal
  168.     xClass.PositionLeft = Me.Left
  169.     xClass.PositionTop = Me.Top
  170.     Set xClass = Nothing
  171.         
  172.     'At this point, the form is now hidden and ExitInc contains the increment.
  173.     'If ExitInc is not 0 then set xobjects to the field values.
  174.     xObjects.xRestore.EncryptionPassword = txtPassword.Text
  175.     ShowForm = ExitInc
  176. End Function
  177. Private Sub cmdExit_Click()
  178.    Dim Answer As VbMsgBoxResult
  179.    Answer = MsgBox("Are you sure that you want to quit?", vbYesNo + vbQuestion)
  180.    If Answer = vbYes Then
  181.         ExitInc = 0
  182.         Me.Hide
  183.    End If
  184.      
  185. End Sub
  186. Private Sub cmdPrev_Click()
  187.     ExitInc = -1
  188.     Me.Hide
  189. End Sub
  190. Private Sub cmdRestore_Click()
  191.     xClass.xRestore.RestoreCorruptedFiles = (chkRestoreCorrupt.Value = vbChecked)
  192.     xClass.xRestore.RestoreSecurity = (chkRestoreSecurity.Value = vbChecked)
  193.     xClass.RestoreBackup
  194.       
  195. End Sub
  196. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  197.     If UnloadMode <> vbFormCode Then
  198.         Cancel = True
  199.         Call cmdExit_Click
  200.     End If
  201. End Sub
  202.